<div id='wikitext'>
<pre><b> File: <EMPTY> of Tape: Sources/Multi8/m8-mprog-f</b></pre>
<pre><b>(Source file text) </b></pre>
<hr />
<pre>
30)
	READ(ITERM,1003) DCAP
	WRITE(ITERM,2031)
	MASK=16+32+64+2048
	CALL DOUT(1,MASK,IERRDO,16+32)
	IF(IERRDO.NE.0) GOTO 900
270	WRITE(ITERM,2500)
	CALL DINP(1,1,IERRDI,INPUT)
	IF(IERRDI.NE.0) GOTO 901
	IF(INPUT.EQ.0) GOTO 270
	IDILAH=DVINP(1+8,0+4,IERRDV,DUMMY)
	IF(IERRDV.NE.4) GOTO 280
	WRITE(ITERM,2501)
	IERRDV=IERRDV-4
280	IF(IERRDV.NE.0) GOTO 902
	IF(IABS(IDILAH).EQ.125000) WRITE(ITERM,2502)
	WRITE(ITERM,2032)
290	WRITE(ITERM,2500)
	CALL DINP(1,1,IERRDI,INPUT)
	IF(IERRDI.NE.0) GOTO 901
	IF(INPUT.EQ.0) GOTO 290
	IDILAL=DVINP(1+8,0+4,IERRDV,DUMMY)
	IF(IERRDV.NE.4) GOTO 300
	WRITE(ITERM,2501)
	IERRDV=IERRDV-4
300	IF(IERRDV.NE.0) GOTO 902
	IF(IABS(IDILAL).EQ.125000) WRITE(ITERM,2502)
	CALI(1)=8.859*SPA*DCAP*1000./(FLOAT(IDILAL-IDILAH)*PF**2)
	WRITE(ITERM,2032) CALI(1)
C
310	IF(MOTODI.EQ.77) GOTO 330
	WRITE(ITERM,2034)
	WRITE(ITERM,2027)
	READ(ITERM,1003) PS(2)
	WRITE(ITERM,2028)
	READ(ITERM,1003) PT(2)
	WRITE(ITERM,2029)
	READ(ITERM,1003) PF(2)
	WRITE(ITERM,2035)
	READ(ITERM,1004) ISHUNT
	IEXP=(ISHUNT-1)/3
	IPRO=ISHUNT-3*IEXP
	IF(IPRO.GE.3) IPRO=5
	ISHUNT=IPRO*10**(IEXP+1)
	WRITE(ITERM,2036) ISHUNT
	WRITE(ITERM,2037)
	READ(ITERM,1004) ICOIL
	AEFF=37.55*1.E-4
	ANG=.0
	IF(ICOIL.EQ.1) GOTO 320
	AEFF=12.63*1.E-4
	ANG=85.
320	AEFF=AEFF*ABS(SIN((HANG-ANG)*PI/180.))
	CALI(2)=SIG*AEFF*HHI*1.E7/(5.19*FLOAT(ISHUNT))
	WRITE(ITERM,2038) CALI(2)
330	IF(MOTODI.NE.77) GOTO 400
C	MODULATION
400	ITEN=IRUN/10
	IONE=IRUN-ITEN*10
	ITEN=ITEN+48
	IONE=IONE+48
	CALL CPUT3(</pre>
<hr/>
</div>